home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8403.arc / SAMPLE.ASM < prev    next >
Assembly Source File  |  1984-01-27  |  2KB  |  25 lines
  1.                     PAGE  ,132          
  2.                     TITLE  SAMPLE  - SUBROUTINE TO CLEAR A WINDOW FOR BASIC
  3.           CSEG      SEGMENT PARA PUBLIC 'CODE'          
  4.                    ASSUME CS:CSEG 
  5.           SAMPLE    PROC  FAR          
  6.                     PUSH  BP                ;SAVE  REGISTER  BP
  7.                     MOV   BP,SP             ;POINT TO STACK AREA             
  8.                     MOV   SI,[BP+8]         ;POINT  TO  FIRST  PARM           
  9.                     MOV   CH,[SI]           ;GET PARM (STARTING ROW)           
  10.                     DEC   CH                ;DECREMENT  IT  BY  1           
  11.                     MOV   SI,[BP+6]         ;POINT  TO  SECOND PARM           
  12.                     MOV   DH,[SI]           ;GET  PARM  (ENDING  ROW)           
  13.                     DEC   DH                ;DECREMENT IT BY 1           
  14.                     MOV   CL,0              ;START  AT  COLUMN  1           
  15.                     MOV   DL,79             ;CLEAR  THRU COL 80           
  16.                     MOV   BH,7              ;ATTRIBUTE  BYTE  TO  USE
  17.                     MOV   AH,6              ;INDICATE SCROLL UP
  18.                     MOV   AL,0              ;SCROLL  ALL  LINES
  19.                     INT   16                ;VIDEO INTERUPT (TYPE IN AH)
  20.                     POP   BP                ;RESTORE BP          
  21.                     RET   4                 ;RETURN, POPPING 4 BYTES FROM STACK 
  22.           SAMPLE    ENDP 
  23.           CSEG      ENDS 
  24.                     END   SAMPLE 
  25.